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IDENTIFICATION 
PRODUCT CODE: MAINDEC-11-DOGTE-8 
PRODUCT NAME : GT4O QUICK VERIFY 
DATE CREATED: NOVEMBER 1, 1973 
MAINTAINER: DIAGNOSTIC GROUP 
AUTHOR : RAYMOND SHOOP 


COPYRIGHT (C) 1973, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


BE SUP TUPLE, RURRPED ES OCP. CBS 
BLP taeiPatipae Em fe fre ek 


PS RSE I RRERLH SP SIS HAL 
OG SEARLES AEB ILE” 


ne + ee ee ee ee ee. 
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THIS ieee & qu ST SH oe tliat oe 


isa € che" chee Bise TEST 


REQUIREMENTS 
EQUIPTMENT 
GTO SYSTEM (117 (1170 DISPLAY PROC AND VRI4Y SCOPE) 
OR WHICH CONNECTS DATA OUT TO DATA IN. 
STORAGE 


THIS PROGRAM USED MEMORY LOCATIONS 0-7776 AND 16000-16776 ‘2K OF MEMORY>. 


LOADING PROCEDURE 


METHOD 
PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED. 
STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 


CONSOLE SW 08 = 0 Year OS VERSION @ en (ole. Wee) 
CONSOLE SW O08 = 1 TEST AS VERSION 1 ROM ( WORDS ) 


STARTING ADDRESS OR ADDRESSES 
200 IS THE ONLY STARTING ADDRESS OF THIS TEST 





PE SE RIN el HY RO RAEN: LEW A Oe A NE aS Me SENT SNE 


Pil 


8.1 


8.2 
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DOG" 


OPERATING PROCEDURE PROCEDURE 


US lle 


PROGRAM WILL ONLY HALT ON AN ERROR. 
a CONTAIN FACILITES FOR REPORTING 
OR ; 
RESTRICTIONS 
A COMMUNICATION TEST PLUG MUST BE INSTALLED ON THE Di-11. 
MISCELANEOUS 


EXECUTION TIME 


THE Md His TAKE eae 10 SECONDS FOR COMPLETION 
WILL RING THE *GT-40’ 


DEVICE ADDRESS PROGRAM LOCATIONS 

LST ae ns : es 
Las 
LOCATION is catalts te 46 fi GoTo pores. 









LOCATION 101 
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PROGRAM PROGRAM DESCRIPTION 


DISPLAY FILE <FORGROUND TASK 


ne Aa oer oo 
ee ian Le 


ae DATA ik TASK 


Seca are 2h eae 


on Fount at 8 roth eur Peioes: TS DISPLAYED 
vI R 


ROM VERIFY TEST <BACKGROUND TASK 
Mat VERIFIES THE DATA CONTAINED IN THE GT-40 ROM 


WORSE CASE NOISE TEST <BACKGROUND TASK» 


PE SPEDE ef IRATE wove 


KEYBOARD DATA <FORGROUND TASK» 


UPON ING A KEY, THE OCTAL VALUE WILL BE 
DI AND ECHO ONTO THE SCREEN. 
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; oo 
% eg 
z Tit 3 
= & Soo 3 
2 8 
Js 3 
x = 
S 
coe 

2 ; 

ae 


SK VERIFY MAINDEC-11-DOGTE-8 
LIST 
NLIST RD 


Eimee Aase 


2 
: 
e 


;0L-11 VECTOR 





ee ete tit - 4% 


=~ 
aa = 


: qm 


mai ee a _ comes 


B : L 888 SEEfES 





esau eeaasezonsveeanganasia Re nz e AEN 


Cn ner a = ne ee -  C-- - 


; 
' 
; 
me ee ee ee ee es ee 








G01 





% 
re 
5; 
oe 
RS 
ee 8 5 
é 3 
8 
: 
= our. 
ESE 88! a an on anne ER oy a 
gage ERS Be G8 be SESS ace Be B a 
Ms 
: 
: er 
ees Ae aE 
& BERK ARG BE 8 SS 
- gees acs Go 8 


ca 


poset “SE, 
BBEstense E 


: ua 


CREE RE CCRC OC OCL COR COCO C CRORE MOR eM CNN 
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INITGT: nay ef »RO a ee AOORESS = 
Pr, a : : ae 
uid} D+ ;LOAD GT TIME-OUT 


sleet i* ;LOAD_VECTOR VALUE 
Fe Lonono sno ot VECTORS. 


hy 





1 
ING 
LOADRO: ( * ;LOAD DONE 
ooo0te ; 
000004 : ;LOAD DONE 
000008 5) ;LOAD PSW 
sEXIT 


;LOAD DONE VECTOR 
;LOAD LIGHT-PEN VECTOR 


77532 INGT: 
1 
;LOAD SHIFT-OUT VECTOR 


INTO: 


SEER N EONS SEER ORES SAREE e Ia Sy 


INTE: 


LAT AT AT ATALANTA] AN] 
b= 2 po fas fae 
te ~ 


—e 


RRSRRR RSS 
85 
See e SOOM toemeneeeeeeeeeS jeceeaes eysESEemeES 





+ 
eS 
~ ry uy =ateate 
BRERSRREE rE 
Or 2 
b= CF) == CF? b= LF b= b= pe 
Tu = 





a 
~ 
w 
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: 


;ROUTINE TO LOAD EXCESS CORE WITH WORSE CASE MEMORY TEST 


te 


As Ae ;TEST FOR MORE ROOM 
XMRTS: sat tae ;SETUP RTS PC 
1)+ 


+ 
rp 





E 
attote 


z 


BACKGROUND TASK WHICH WILL BE LOADED THRU 
NDER OF MEMORY 


#123455, (PC)+  RERDAT CONTAINS 


NEMOAT#1 sROTATE LEFT BYTE OF MEMDAT 
° 3C BIT WAS NOT SET 


ae 


123456 
177773 


~ + 


1S14S6 177754 


BESEE 
t 


n1S1¥56,nerOAT LEAL HERE FOR CORRECT ROTATE 


177744 001766 


ROTATE FA 
HEHOAT, @SROTVAL * CHECK aGhih REFERENCE LOW MEMORY 
: REF. TO LOW MEMORY FAILED 


; oe 





a 
= PC 
001 1S1456 ROTVAL: ine on 
ce 
es 
: 
: 
= 
el 
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; INTERRUPT SERVICE FOR THE GT STOP INTERRUPT 


oreo 177064 GTSTOP: Tst © aGTSR ;TEST STOP 
001022 eS STaRTB tRESTRAT Test ee. OUT NO STOP FLAG 





GTOLYO ;DECREMENT DELAY 
G i - F NOT 

| x : SEREMENT 
eo} E REIN if Ror 
SSTATSB! INCR, GRPINC RESET GRAPH INCREMENT 


aF F 
Hei iE eve THE DISPLAY 


wocree ;RESUME THE DISPLAY 


;GT-40 SHIFT-OUT/TIME-OUT ERROR 


8 

SSSSRRSERCeseseRs o 
RR Ries BRSeeea sg | 
OO O62 irses ! 


£ ELE 
pas hat Pa fe Qe 
We 





ce ES EWSEUGEC eae 
Ee 


001022 JMP STARTB 








83 
a 
2 


BMI t +10 
‘3 STARTB 
MOV RY, -(SP) 
DLOUTA: PPNT RY 
ROVE BUFF 1 CRY), PUNCHR 
INC 
CMP 840. .PPNT 


a te 


DLOUTB: MOVB FER SOL Coen 





SfGGhGSASELFFILEFESSGAASORSOAOAHGERESS 





MOV 
RTI 
; INTERRUPT SERVICE FOR THE DL READER 
‘ o02242 105777 176674 DLIN: TSTB @DLICSR 
BMT +10 
fs STARTB 
MOV R4, -(SP) 
i MOV POAT Be 
1 HOVE SOLIDER, REDCHR 
Five  REDGRRCALFFS CRY) 
I RPNT 
a ewe 
RPNT, RY 
e383 iOve $177, BUFF2(R4) 
458 002340 012604 MOV (SP)4,R4 
“ O0ewe2 oo0002 RTI 
gam ereer: OB 
463 000240 PUNCHR: 240 
464 002352 000240 REDCHR: 240 


; INTERRUPT SERVICE FOR THE DL PRINTER 

OLOUT: TSTB @DLOCSR ; TEST FOR DONE 

; NTERRUPT NO PRINTER FLAG 
iReStvar test ae 
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agnor 


;CLEAR PUNCH POINTER 


; TEST FOR DONE 


;NOT DL_INPUT FLAG 
sRESTART TEST 


;SAVE RY 
READ A CHARACTER 
: CHRRECTER INTO THE BUFFER 


S UPDATE READ POINTER 
tTEST FOR END 


ADD CURSOR 
;RESTORE RY 
EXIT 





z 


VERIFY MAINDEC-11-DDGTE-B 


= 
=X 


FOUR RENO SSB aR LOR ose SRR ER a aa atl Sinan Gets : 
+ + } o.¢ 


is Sas Ecce EG 





uv 
= 
o 





; INTERRUPT SERVICE FOR THE KEYBOARD 


176616 KBIN: 
ar SFB 
HALT 
001022 STARTB 


aaa8 3 
a6 





BIC 8 
MOVB , BUFF 3(4) 
INC KPNT 
840. , KPNT 
oh 
KPNT 
KPNT, R4 
MOVB 8177, BUFF3(R4) 
OCTAL READOUT 
o02s42 MOV KBCHR, R3 
I aot a 
61 JSR PC, 11s 
j MOVB RY OCTA+ 
peel woe ORY OCT 
MOV (SP)+,R4 
MOV (SP)+,R3 
RTI 
11S: ROR R3 
m & 
10S: MOV RS Ry 
177770 BIC #177770,R4 
000060 ADD #60,R4 
RTS PC 
KPNT: 0 
KBCHR: 240 


MO1 
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; TEST FOR DONE 
pe INPUT FLAG 


;READ CHARACTER 
3 MASK 

; SAVE CHAR 
;UPDA INTER 
;TEST FOR END 


sCLEAR POINTER 
;ADD CURSOR 
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alt ;PART 1 OF THE BACKGROUND TASK 
23 O02S44 012737 001000 O02722 OVER: MOV 81000,PCOUNT § ;SET UP EXECUTION COUNT 





eis ; COMPARE DATA TO THE IMAGE DATA 
is | ae 
519 ; 
520 : RiaBAD oe 
Se eae gle om Back: FY HD RETR TNETIAA MORO MUNGER 
Se4 01 001014 MOV  ROMADO, x3 : Up ROM ao 
Bc5 te BACK1: MOV CAL) Xe Hero 8 te MAGE 

11 MOV (43034 : 
AAs Ee 

fect al RRO PROM VALUE FAILED TO EQUAL THE 
2 

5 92123 BACK2: one (x1)+, (13)4 ; BUM PTH. REGISTERS 

— $ 
eS Siaee — BNE a4 tale S BRBNCK IF t thet 

; PART 2 OF THE BACKGROUND TASK 

: EXECUTE WORSE CASE NOISE TEST THRU MEMORY 
ey Aes Ge BAD ge Or meme 

1 BACK 
aud 15777 Booeo? ives ae: rs NG Me 
S45 O0esH2 105777 176334 1S STB TPS 
Fe fee fies ee Bem 
550 oo0042 TST gave sTEST LOC. 42 
Sl ee 1725 é ‘BR IF =0 # 
ES 76 RESET 
555 002700 013700 ocoo042 MOV. ae42,RO ;READ VALUE 
= tere froeis LOGICAL: JSR’ PC, (0) 

1 NOP 

cB} teerit feae ee 
ee 16 ene 001022 JMP —s STARTB 
564 002722 000000 | PCOUNT: 0 ‘ 


| 





é 


BST lala oe ans aad iat ial MN RA A 
jaletetes ee iaiatetals : ; 


— 





CORrrr 


araray 
ous 





FILEOO: SOENTSLPON 


MAXY 
STATSB!LPLITE 
;LINE THE EDGES OF THE SCREEN 
ONGV! INT4!LINEO 
NTE AAA 


8 
CeeVIL INE! 
4 °MAXY 
GravitT 
aa 


;SETUP THE X SINEWAVE 
er eS 


NTX+1200 
oe 
GRPINC: SPATSB! INCRE 
GRAPHY 
;SETUP THE Y SINEWAVE 
NT 


tony 


NTX 


100 
GRAPHX 
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;TOP LINE 


sRIGHT LINE 
sBOTTOM LINE 


;LEFT LINE 


;DRAW X AXIS 


;GRAPHPLOT THE X SINEWAVE 


;DRAW Y AXIS 


;GRAPHPLOT THE Y SINEWAVE 





;SETUP TO DISPLAY THE OCTAGONS 


roast 





NT!LPON 
-100 
TATSA! ITALO 


{ITAL 


1 
-130 


aiant ITALO 
-200 


a SITALL 


‘Y¥-230 
SF ra 


MAXY-300 


crear iT 
Ua ITAL 
220 
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eee to 
% 1 STATSA! ITALO 


; SETUP i ITY LEVEL TEST 


cane Hi 
a 
ce 


r 


oa 


a 
SINT 


SSBIeNSHNHS SE SRA LOR Soe OR REE ES dal toll Bo 
cece ome c 


me 


ARAN S. 





7 
71 
tn 
71 

POINT 

i] 

: carte oe 

0 
th ;SETUP THE MESSAGA BUFFERS 
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Pll 


PARAS ITINATINSSSE LPR TERS Bowe DR Se aA SORES OSES : 





NTS INTY 


eASCII /COM OUTPUT / 


~ASCII /DECGRAPHIC-11 DISPLAY TERMINAL GT4O VRI14/ 


-ASCII /COM. INPUT / 
-BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


-BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


-ASCII /KRB. INPUT / 
-BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 


-BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
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020124 000 ~ASCIZ /0CT / 
000 0,0,0 


5 
a 


FiLEbe: | 


race: (OP 


FILEOO 


Pai hi ma Rit smite spear 
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-ASCIZ /LIGHT-PEN HIT/ 





G02 
GT¥0 QUICK VERIFY MAINDEC-11-DOGTE-B ACYL 27(732) O%-SEP-76 15:20 PAGE 19 


810 unantanatay io htt ep ghana gpg 
d FEE OF 

: -TITLE SCROLLING ROM BOOTSTRAP FOR THE GT4O 

819 


BOOTGT.T16 OCT 10, 1973 


‘ — 
s= 


af 


: ; COPYRIGHT 1973, DIGITAL EQUIPMENT CORPORATION 
E ; NERO, PRSSACHUSETTS act 
835 
a? 
838 WRITTEN BY JACK BURNESS. 
B40 
a 
2 ng arg METRO IRE FRE SES TS aS 
eye 
| = 
| 5 fame ete HPSROTE: USE “HACOLX® 10 ASSEMBLE THIS PROGRAR. 
: 
| 8S9 
| Bee .SBTTL DEFINITION SECTION 





a a 


Paice tat Miah kt tibia tt RE RED RR RRR A teat : 


wouowvo0ow 
Bas bs G2 Gs be 
MSWwKO 





RON BOMPINITION Section © we'd? &7(732) enn thle PAGE 20 








; REGISTER DEFINITIONS 
: 
BASIC DEF INTIONS 
: 
RO=*0 ;DEFINE STANDARD VALUES. 
Ri=% 
es 
: GT¥O OEFINTIONS 
000000 CHARRO s CONTAINS HELT CHARACTER. . 
! aes EOE aa ats gall 
ae : M NG’ PEMORY FOR COMETH 
000004 HOLD=R4 it yer Y bmiICH IS USED 2 T0" RETAIN 
oo000s COUNTR=RS * TYPICALLY Oise AS A COUNTER 


; LOADER DEFINITIONS 


L.BYT=CHAR ;CHARACTER INPUT FOR THE 
UC BCeTABCNT SCREEN DETORY Soot ot Aieoe. 
tk ie non Nou fo: THE @ BIT CHARACTER. 











SCROLLING ROM BOOTSTRAP FOR 


DOGTEB.P11 


a 


ce sal at A Saal an EE ROR Set ae ap aie WS AUN Wig de 


DEFINITION SEC 


oe 


Ide 
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CTION 


ORIGIN=166000 
eect 
ee 
KeDIe=KBDTS+2 
Gfwase=araorce2 


noe 


Srerap=a INT#10. 


AL Th0b=1?5 
Bis t0P=172000 


MAJOR SYSTEM DEFINITIONS 


eH OF THE BOOTSTRAP. 


Rare Be Gi arER ESTER OF DLil 
sae, TE AeA, 


SCORRENT mapa KEYBOARD. 

iGiuo SiATUS REG 

reg ee | 
MBE 'S CORTE He? GOR MLSE 
SS ERY GHRRRICTER IT.E. AL THOOE). 

THE CIM STOP DISPLAY: INSTRUCTION. 


-SBTTL INITIALIZATION AND RESTART CODE 








ING ROM BOOTSTRAP FOR THE GT4YO  MACY11 27(732) 09-SEP- : 
Pll INITIALIZATION AND RESTART e tear 


; GT4O BOOTSTRAP CODE 


; - ORIGIN ;DEFINE ORIGIN OF THE BOOTSTRAP. 


COLD INITIALIZATION CODE 


PERSE it hice eRe RRR 4 a 


is tine Ge RE UU Pk) Be sx 
pas Sa LS FS Bmirsmco Ph Peel res 
i OS BES ER SIAC, sows 180 RP FRG 
i BG bare Poon: Bt et’ SOLE SPR AS BS, COTE 
Itoe 006042 005743 NOTHER: TST -(SCAN) fri a uP Pou 
100s ei Pate Fiat T 
IS come oery ws Tse ites BE pout feo ri 
: 006054 175614 CLR OL110S in ee BREAK BIT 


Ono £ 


aa bs Bes bas bs Oo b= bo B= fee 


SREES 


RESTART INITIALIZATION CODE WHEN COMMUNICATIONS IS WORKING. 





| 
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DOGTED. Pil INITIALIZATION AND RESTART CODE 
{ 
006060 052706 007776 RESTRT: BIS STMPEND, SP FORCE THE SP TO LIMIT OF EXISTING CORE. 
1 
1B ORS GLEE BRRGRB ROY SGACHA THERA "Sth cay BB th ALTREC OF TE 
i 
1033 006074 ne 005015 SETLP1: fee on Re Gis ie 
ie reat j i ; § ALMOST CORRECT. 
1 
006104 012703 166432 MOV 8SETUP! 160000, SCAN sorsecay’SY He Tbh INITARIZE CORE FOR THE 
at 006119 012302 SETLPe: HOV (SCAN) +, TABCNT GET NUMBER OF ITEMS TO INSERT. 
its Spells ea fav PECAN) +, POINTR i Bick Ue’ FIRST Cone HOORESS POINTER. 
tie BBELS pigzel SETLP3: pee {ScAN}+, (POINTR)+ nye oF A - ITEM NOW. 
: 006124 erga ER SE TLPE MES. Gey NEXT halon {Fet t0 INSERT. 
ool 006126 012701 006776 SETOUN: MOV SBLIMIT-2, POINTR ;ESTABLISH THE BUFFER POINTER NOW. 
ioe 
1055, 
1056 
1057 
1058 
1060 
iB 
1 -SBTTL VTOS SIMULATOR 








SCROLLING ROM BOOTSTRAP FOR THE GT4O 
DOGTEB.P11 VTOS SIMULATOR 


———P— 
wi 





tort NXTCHR: 
ies 13 
1 0061 BGE 
: E ee 
1 MOV 
1 SUB 
rT es 
186 Sobtes ea 
1082 006170 ADD 
1 onoi7e ponies BR 
tee een for a 
= 006204 O004e4 &R 
l 

a 006206 Ol2702 177777 CR MOV 
1 

ie 006212 004737 166350 NORMAL : ihe 
a 

ll 

i 

1104 012700 O00040 TRE: MOV 
Hi Geese Onze? leess0 i 
1107 032702 000007 IT 
L103 iv rine me 
lll 

llll 

iit¢ 111705 VT: MOVB 
L118 ooces coos eR 
ii? wane 172002 BELL: GBR 
1119 012705 000040 FF: MOV 





LOe2 
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VTOS (SCROLLING) PORTION OF THE BOOTSTRAP 


ome 


cee 0 
cee 
SCAN, PC 
RORFAL 
TAB 

f 


8-1, TABCNT 


wor 


eee” 
fis ea ger 


na ee 


ait THE CORRECT ROUTINE 


Hee ttl cn 


;RESET TAB POSITION ON A CR, AND 
;FALL THROUGH TO INSERT THE CHARACTER. 


; INSERT THE CHARACTER IN THE BUFFER. 


pga Rag Coat 


30N A TAB, INSERT BLANKS UNTI 
;MEXT CHARACTER POSIT 


fase Ome ven 
SDRANCH CODE 'IN-COUNTRESAVE. A HORD 


RING “WRITE IN GTYOSR 
;AND LOOP BACK 


;FORM FEED IS DONE BY INSERTING LF’S. 


L THE 
ION IS A MULTIPLE 








MOe2 
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Pil SIMULATOR 
ll 
Ht Bere TERRE FFL OY EEE sco le eh 
i bose Bet ._ KEEP ING THEM. 
! 1 BR CHR . NOW . DO NOT FALL THROUGH. 
1 
: 006300 01274 166132 LF: MOV —s- #NXTCHR! 160000, -( SP) ne uF ge TURN , LO, NATCHR AFTER PROCESSING 
006304 013703 007012 LFSUB: MOV § JMPADD, SCAN mips TO FIRST CHAR ON SCREEN 
1 LFLOOP: CMPB (SCAN) +, CHAR AL 
te ce Be 2 ee 
ian ae ae 
LrOUND: Mea a ne BY Sis ine ne i 
000001 I 81, SCAN “DI 
ae ne res 15k Pe, IMSERT! 160000 Hs TE LF IN 








INSERT: MOVB CHAR, (POINTR)+ $11 
be aL POINT if TION 
Bo NTR, SBLIMIT 
a OR ie A oe 
Ov DRT BOINTR iBecINWING. OF 
ISR TRERTL te0b00 NE TO SAVE SPACE. 
ft: CSEAN)+ sno a TROTRUETIONS AT THE 
( ) ; THE 7 
Fc = 
INSRTL: CMP (POINTR)+, (POINTR)+ ADDING 4 TO POINTR. ce 
MOV SHEADER! 1 (POINTR) ! Be WE CTION TO_OU TO OUR 
MOV SDISIMP. -(POINTR) we ihe 
CLR -(POINTA) ;MAKE AVAILABLE A NEW CHARACTE 
INSRTX: RTS PC FINALLY RETURN TO THE CALLER. 
006424 012737 001000 172000 GTBUSE: 8BSTART, GTYOPC ;0N A BUS ERROR, WE MERELY RESTART THE GT4O AT 


See ar a eee 


Bes Des Pas Be Pt Bes Go ae os Pas Bt Bt Bt fee ne ht at Ft he Ba thes fe hat hat fm fh fa hea bes Boe free = fat Set Pt me eh Bs hn ft Bee hs ee ham fs fe fs Pe fe eee Pe ee 


Bb bs Bs pet Be fat ae Pt ae Po + bt Pee BF b= BS Ba be Po pen Bat fan Bs es fe Bae fae Bae Bee Gene few fo Ps Os fe hens Pe bee es Peo pee 


3 
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Pll VTOS SIMULATOR gael Sane 


’ 
~S 


THE 
S 


iI 
g 


THE FIRST WORO OF THE TABLE 
OW-IT A WORD! 


BELOW-IT SAVES 


pb Rm no Pes Pee pe 


BSBIRRZBR=— Ba ot 


INITIALIZATION TABLE FOR THE SCROLLER 


vs) 
4 
= 


GRRL 


‘Nhat ING AT” sss: a 
; SECOND iia ses lo aba. es 


Gime tA'CLEAR SPACE TO INSERT 


SJMP , HEADER! 160000 sms IS BY" BI ee BLOC 


piste: Eitan ve eo THE . APIS 10 THe TO THE Pe FIRST CHARON SCRE 
HEADER! 160000 cA a How IN he 

0 | sEND OF INIT CODE 

HEADER BLOCK FOR THE SCROLLER 


ie iiytis 
0: Lise Ne 
iteife, JMPADD-2 HRS TO nee He CHANGING JNP INST. 


COMMUNICATIONS AND MISC. SUPPORT ROUTINES 


Bae bas fie Bima fino Pas Pas fne foo Bos fae Bo ft fa Bs bs fe he fe ft he ee he 
Ga fas fh fo bt Paw Ps Pe Ps he Fh be Pw habe pe 


Des Qe fet Deno fhe Pam das Poo fee 
5 ie 
- 

-— 


bb 
rorerory 
‘ewrue 





" att 


ope —_ — 
fororurur) 
oo 
in 
*« 
+ 





SUH ARE Te PR Pe 


175610 


175616 





BEES Bae 
fe 
Bene 
ge 
wi 
BE 
One bes 
BR te 


[i aed aeeame ae akan ee toe a D2 Bs fm bo Bo ho Ph oh he ee Pe 
SST SSSI POR EMT 
+ = . + . 
* . + 
! 
i aia ry td 
~ 


be neo ee ee ee. eee 


COMMUNICATIONS HANDLING ROUTINES 


ous as 


Reade (OL? 160000 er GQner ONE NOW. 


; gl LOADING NOW. 


THE “GET A SIX BIT CHARACTER” ROUTINE 


Bee cea LSE ENR Ke SE AE ON 


IGNORE THE ALTMODE AND JUST RETURN THE CHAR 


RestrTsieood =| SherRUCTION IN THE BUFFER, AiO RESTART. 


CO3 
D RISC. techn FY Pico Pac 


GETSIX: eae e160 , mm ai GEL A CHARACTER NOM. 
T pi 





tie, 0137 _ IS 17 T00 BIG? 
; YEP. 
GETEXT: RTS ;RETURN TO THE CALLER. 
; " TWO CHARACTERS VIA A 
an ie exam ;DOUBLE BUFFERED 
RTS ; RETURN 
; THE “GET AN EIGHT BIT CHARACTER” ROUTINE 
; mwemwer IT Gath Te USE. NOTE THA a S POINT a 
real Vie SAE TN CPR 
GET: 


PC, GETSIX! 160000 7 as CHARACTER. 
neon hd aoa TIBIA OE 82) 
rr tee ieee: Se ctro Oe 
MOV 


He Put a Cost ee 


#2, INDEX 3 The our mt -19_THE SAME AS THE FIRST 
; 7 IT AND FALL ‘ 





1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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COMMUNICATIONS AND MISC. 


ar) 
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he 
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rm f el ee eee eer 
coord alafsinintntatatatatatate i a ba 
& . ‘ . - . ‘ : . ?, . . ¢ : “ 9, : 
Sir Shue REiGe ‘ 


GET81: 


GETS2: 


GET83: 


apogee SSSRECREREEPA © GeERERP RRS 


-SBTTL 


—— a 
2 


Seale 3 
+ 7 
- 


gbsba23 


af 


es 


“Sebatey 


THE LOADER 


T 
s MORE 


Re 


te 


Cae 


Bese i, 


a : 


PGE gece cre, 
sEINAL CHARACTER IS EASY. JUST A 


Site aah die 


Te PS Six 


RETURN TO HIM. 
pa 


T 
since if 
WILL MOVE 


OVER THE 


PURRLLY THOS ARY 
SAAD RETURN TO THE CALLER: 
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DOGTEB. 
1 
i 
: THE LORDER 
1 : aia a 
1 
i 
i 007012 012737 173000 007010 LOADER: MOV = sDISTOP, JPADD-2 ;STOP THE GT4O BY INSERTING A “DISTOP™ IN THE LI 
—_ CLR —s INDEX RESET THE @ BIT ASSEMBLER TO THE FIRST CHAR 
1 
oR A ee com 
ies 10703¢ iors Bee tctbe 18 Ty latte Te ere. 
i ios 004737 167114 JSR -—«- PC, L. PTR 160000 YES. SKIP OVER THE NEXT CHARACTER NOW. 
iss 167126 Is cine * 160000 ee 
1303 oe Bouute or neu ray 
i ee Bio {6716 mov LeOYT ROR 000 el eam 9 " 
004737 167114 L.LO3: JSR = PC, L.PTR! 160000 ;GET A BYTE OF DATA NOW. 
Iteres fste [: iE. NTER IS fT. CHECK CHECKSUM. 
5 001751 @ 83> LL CHECKSUM GOOD. NEXT COMMAND. 
{aS} 004337 166652 L.BAD: JSR SCAN QuTL IT! 160000 BAD LOAD INFORM HOST 
3 BIB cco a he aD EST re onsen. 
| i 007110 110021 L.LO¥: MOVB  L.BYT, (L.ADR)+ sINSERT BYTE INTO MEMORY. 
| : 007112 000765 BR L.LD3 AND GET THE NEXT BYTE. 
Pe 
1 
ASS pes pe men mS pae PEBEL BET ern vn 
eB oe Rk BS RG RET 
14 
|; 3% 
| te 007 12% 904737 167114 L.GWRO: 15k PCL PTR: 0000 7 a WORD. FIRST GET A CHARACTER 
| 1440 007134 004737 167114 JSR —«- PC, L. PTR? 160000 SAND THEN GET ANOTHER ONE. 
| - 
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ine 
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1446 ois 004737 167126 
ee 184 es 167114 
1 169 

fay Ol 

2 ai OR 
i apie erat om 
itt 007200 000000 

Ibe oo7etd2e 000136 

1464 

1465 

1466 

iss 

is 

ii 

1 

1474 


Parse 
RE 
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[fF SURAT 


L.JMP: JSR PC, L. GRD! 160000 : WITH THE LOAD. ASSEMBLE 
Te belMeidtlome 1S BGPP PEAS Bn 1 
BNE tS 3A BAD CHECKSUM. ALL IS EVIL. 
ISR scfm, QUT. IT? 160000 at oa $0090 CHKSUM, INFORM HOST 
se? RSM AAT fim Cori 

L.HALT: HALT IF NOT, HALT. 

L.JMP1: IMP = a(SP)4 IF GO, THEN GO ALREADY. WHEEEE! 


-SBTTL THE SELF TEST 
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bo b= bs bo ho 
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;THIS IS GT4O QUICK TEST 


iB eet fi Oe ck IN ite 


; BRIGHTEST 
;STOP INTERRUPT 
; JTALICS OFF 
SYNC ON 

STATSB=174000 

Bi poe 

Wey =1377 Kron 

= 
MINUS Mal 

HEN aat rex ie nina 

RexSre77 STOEST ¥ Jy Spore 
“MINUS BIT FOR Y IN SHORTVEC 








is ine Sr Cc 
rere EY 167214 172000 


2 
a 
—) rd 





pat Bree Bat BO Beet feces fe has Fe Bee fine Prat ft fm Bae Pas ad fe fas ft fas fant fhe Piao few [how finan (has han fae fm feme frwn fen fms fae Pee fms hat Pa Pan Pe fee bn Pa 
+ ’ 
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#F ILEO! 160000, GT4OPC ;START THE GT4O 
air ;AND WAIT 
FILEO: — 'BLKOFF ;POINT--INVISIBLE 
MAXY 
non ;DRAW TOP LINE 
NTX! 
hove INT2!LINE1 
NTX ;DRAW LINE TO RIGHT 
MINUSX! MAXY 
ONGV! INT4! LINE2 
NTX! MINUSX! MAXX ;DRAW BOTTOM LINE 
oe INT6!LINES 
;DRAW LINE TO LEFT 
POINT 


! INT4! BLKON 


tINCR+20 ; TRY GRAPH MODES 


: ees eee es SNR 


Os Oo Gee 
SRe 
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no 
“4 
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Ob bs bb 0 Po Pe ee Pe Ps me Po Ps ee Pm nme ems ome mo ems me Pe ems no Puce me 


FREGHASSO RRO STR 





SOT GT4O 8=— MACY11 27¢ 


3 
gaqaceaeeas | 


@ 
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AE a's saa 


} DEVICE ADDRESSES FOLLOW - DO NOT CHANGE THE ORDER 


fev: sR iHIGH SPEED READER 


-SBTTL CASSETTE BOOT 
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;TA-11 CONTROL AND STATUS REGISTER 


iar) ee 

sR TABLE 

abe Ohio ba 

; T 

: eee IN TACS 

3 "TI NG 

Peed Oath Ii 

e BE *240’ 
BYTE 


POE BO: tamer et, 


oie ~ 


FTHESE APOMER UP VECTOR AND PRIORITY 
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;MR11-D0B8 BULK STORAGE PROGRAM LOADER LISTING 
; - 2ORIGIN+1600 


RF 11: Bae 


;KEEP TRACK OF ORIGIN 
;FIXED HEAD DISK (256 KW) 


REGO BEES | 





2% 
1 
1 
1 
i 
16% RKLI: PC, Re sMOVING HEAD DISK (CARTRIDGE) 
1697 Bonen . 
ies — 
i 
1 TCll: MOV PC,Re 
1 BR TAPES 
: 177384 ; OF WORD COUNT 
1 sLAST 
ie he i 
: ; 
171 
at TM11: MOV 
171 172524 ADDRESS OF COUNT 
1714 60003 LAST 
i ne 
71 I ; 


RP11: MOV PC,.Re 
i ate 


TAPES: 


;MOVING HEAD DISK (PACK) 


on 


asa VANS 
: S 





PP Ban a Pan Poe fan Bee Des hat Gs B= Pet bw hes be bee Fat frm dean ms Pane Pewee 


BASBOIENG 





ts 
-— 


Beau 
Rae 


e 


See, Ss Eee as Ba is 


Be se a iy 
Leese 
= ++ 


“Omen 
~ 
~~ 


a 
B 


1 EPEAT Ea 


; UP F 1 

: RO 10 FIRST nad 
LOOK Fi 

3 


ee aa 


RERUN FOR ERRORS 


;RF11 POWER UP VECTOR 





SaES ee 
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RC11: 


: 


RKVEC: 
RCVEC: 
RPVEC: 
TCVEC: 


3 


ag 


- 
0 
: 


= 
: 


aRae pannaaaas 


;FIXED HEAD DISK (64KW) 
CORMAN WORD {S) IS THe Reser 
TO POINT AT WORD COUNT ADRS 
Nat TO Ri 





AY Le 
I LOOKING 
TRY” AGATA 
;FILLER 
;RK POWER UP VECTOR 
;RC POWER UP VECTOR 


;RP POWER UP VECTOR 
;1C11 POWER UP VECTOR 


-SBTTL ROM VERSION 1 VALUES 
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S8IIVIIIIITI 


ean fret Gat eo fone Bae fs fe te Pas ft bas Pt 0 Bow fs fs bo 2 Poe Pan fee fh Po 


SEIARESR SISA RRR 


1800 
i 
103 
1804 
1 
1 
1 


009000 
000001 
Ue 
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;DATA PATTERN STORED IN THE GT4O BOOTSTRAP VERSION 1 


HEHE THIS IS A IMAGE LISTING OF THE GT4YO <VT4O> BOOTSTRAP senseeee 


pe pote JS 6 BIRaOR ee OF THAT IN THE BOOTSTRAP ROMS 


;B00TVT.SOS S/2/72 «SPECIAL» 


VT-40 BOOTSTRAP LOADER, VERSION S09, RELEASE ROI, S/2/72 
covey treet DIGITAL EQUIPMENT CORPORATION. 
146 MAIN 
MA , TTS 
01754 


WRITTEN BY JACK BURNESS, SENIOR SYSTEMS ARCHITECT! 


THIS ROUTINE IS INTENDED TO BE LOADED IN THE ROM PORTION OF THE VT-40O. 


REGISTER DEFINITIONS: 


RO=%0 
R1=%1 
R2=%2 
R3=%3 
nS 
SP=Rb6 
PC=R7 
; VAL ISTER. 
els ELUNE” FOR He. PES PURE TION 
Nee a HIRST wor PORECISTER. 
WORKe=Ra ; WORKING REGISTER. 
SCRI=RS >SCRATCH REGISTER. 
LCKSM=WORK1 OVERLAPPING DEFINITIONS FOR LOADER PORTION. 
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Teeb00 Ronoo=1eeb00 Hlaehe Te ROR PROGRORT SHOULD 0. 

Goise0 Stiaty=1360 fieere 10 Steet Dlsptaving THEY. 
En fe 00 Ree 
Pi ae eae 


in en Se ae 


ION OF 


ee eee eae 


fone po ae hn Pao haw (hav G2 fm HB -2 Be Po 
hari +4 
= 
a 
vwvU 
—b—— 
=e 





i JMPOIS=160000 THE VT-40 DISPLAY JUMP INSTRUCTION. 
1 
1 PWRFAL=24 sPOWER FAIL RESTART LOCATION. 
185 
1 
1 
1 
1 
1 
1 
1 
! 
| 
1 016000 ; 
| 1 ; ere SET THE ORIGIN NOW!!!! 
ar & 
; 1E 
Ig 
lE 
| 46 
j le 
Ag im nee 000026 STARTA: MOV SPURFAL+2,SCRI fe Se STATUS. 
ae: 1 Ut a 
rf: 1 4 Fee a) UP THE REST SE on. 
if ? 016010 000005 RESET RESET THE 01S. 
1g 7 007570 87,P s INITIAL 0 INPUT 
Fig & i | RR 
1 12767 1 007560 MOV s201,P1 s INITIALIZE POP-10 OUTPUT. 
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oP 


PC, GTCHR ;GT A CHARACTER NOW. 





a: 





@MAJOR+ 1S0000, - (SP) ; INSERT IN DISPLAY BUFFER NOW. 


2 A 


SSianin Sheth erat tat tt] 


deiinetets Seeee Kghsssses 


srgasees 
a fs 





Seeee 

OoawrD 

Sate PTGS 
} 


— 
= 


wr 
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ee 
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Bist 004767 000124 GT8: GTSIX T SIX BI 
ne 10046 ¢ 1,-(SP) Enver . 
nS ame. UR = 


166250 1S$0000( INP2) , PC 
0161S2 GT6P=, 


tated nytee 000104 GT61: 
016160 006300 


te be se Be BP 0 Rm be Rm Be Bt bt be be Be 2 8 Ob 62 De Be bs be fee fe Pe Bs Be be Pee Bm fe ft Bas ee a he fe Be ee Be he Hm RB 


SRREE SSS RS ESN 


Sif Whe Ghd ROP IS 


RSG 
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;PUSH ZERO CONDITION BACK INTO NEVER-NEVER LAND. 


sSHIFT TO LEFT OF BYTE 
;PACK THEM IN. 
;WORST CASE. SHIFT 4 


Re Hat 


> 5 
ee ee ee ee 








acs BA I tee 


rayatarayo tata) eed ssooos 
ooo0o0o 


pie eg $4 3 





;UPDATE THE STACK. 


(SP)+ 


GTCHP: TST 


;SET UP POINTER TO THE INPUT CHARACTER. 


;ANY CHARACTERS THERE? 


; THE CHAR ON 
SOUEAR THE CHAR cot 


TACK. 
NOW. 


CUCL CLL LLSS SSS SSS SSL LEiuGubiouLts 


dO Od nd 08 Od Od nd) ad Om On) C9 dd Od OR Od On OS ed Od ed C= Od Oh dd md a ad a dy a et ed ey ed Od ad Sd ed Sd ee 
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— 
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» (SP) 
ath (SP) 
» ORETI 
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1,8114 


L 
(SP) 1 
a ' 
GTCHR 

PC 


P100C 
1 


l 
P100C, P1008 
P100C" 


Gack 
-(SP) 
81,KB0IS 
i 
(SP)+,P1008 


P10IS 


rrr 
87, tts 


PC 


iF Beds Gr mone 
i a aaa 


,m CASE OF ABORT. 


ae 
"LOAD. 


nou DO THE FDUGING. 


;IF ALTMODE, LOOP 


300 WE WANT TO OUTPUT? 
aon THE 10 READY? 
11S 


chon 
Se KEYBOARD READY? 


LUTE” CHARACTER NOW. 
THE COMMUNICATIONS DEVICE. 


31S THE OUTPUT READY? 


tivo THEN SEND OUT THE CHARACTER. 


ie 19 TALKING TO ME. 
Ce ehac NOW. 
tA ee Se PERO LINE. 


;AND RETURN. 





04 
SCROLLING ROM BOOTSTRAP FOR THE GT4¥O MACY11 27(732) O9-SEP-76 15:20 PAGE 44 
OOGTEB.P11 ROM VERSION 1 VALUES 
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ie rm oe IN CORE. 
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a(SP)+ 


LIMP 
LIMP1: JMP 
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di tal ge nd a te, 


DISPRG: E Hs FOR NORMAL. OPERATION. 
Ee rt b a, aS ae POWEREATL LOCATION. 
EA GACKGROUND WORSE CASE NOISE TASK WILL BE EXECUTED 
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